program P5_2;
var heigth:array[1..30] of integer;
    i,j,max:integer;
begin
for i:=1 to 30 do heigth[i]:=random(51)+150;
for i:=1 to 30 do writeln('(',i:3,'/30) ',heigth[i]:4);
max:=0;
for i:=1 to 30 do
	if (heigth[i] <= 175) and (heigth[i] >= max) then max:=heigth[i];
writeln(max:5);
end.
